Scenario 3 JSON Parsing for existing or incoming JSON string from any external systems
--------------------------------------------------------------------------------------

EGL Program
package TESTJSON;
// basic program
//
program TESTJS05 type BasicProgram {}
// Use Declarations
//use usePartReference;
// Constant Declarations
//const constantName string = "literalString";
// Variable Declarations
variableName string = "{\"recordThree\":{\"name\":\"TESTNAME\",\"address\":\"Flat no. 123, New City, Pin - 112233\",\"age\":10,\"standard\":\"V\",\"marks\":[81,82,83,84,85,86],\"recOneObjArray\":[{\"recOneSubName\":\"Sub 1\",\"recOneSubScore\":10},{\"recOneSubName\":\"Sub 2\",\"recOneSubScore\":20},{\"recOneSubName\":\"Sub 3\",\"recOneSubScore\":30},{\"recOneSubName\":\"Sub 4\",\"recOneSubScore\":40},{\"recOneSubName\":\"Sub 5\",\"recOneSubScore\":50}],\"recTwoObj\":{\"recTwoSubName1\":\"Sub 11\",\"recTwoSubScore1\":110,\"recTwoSubName2\":\"Sub 12\",\"recTwoSubScore2\":120,\"recTwoSubName3\":\"Sub 13\",\"recTwoSubScore3\":130,\"recTwoSubName4\":\"Sub 14\",\"recTwoSubScore4\":140,\"recTwoSubName5\":\"Sub 15\",\"recTwoSubScore5\":150}}}";
function main()
obj2 recordThree;
servicelib.convertFromJSON(variableName, obj2);
SysLib.writeStdout(" ");
SysLib.writeStdout("--------------------");
SysLib.writeStdout("OBJECT-2");
SysLib.writeStdout("--------------------");
SysLib.writeStdout("Name :"+obj2.name);
SysLib.writeStdout("Address :"+obj2.address);
SysLib.writeStdout("Age :"+obj2.age);
SysLib.writeStdout("Standard:"+obj2.standard);
SysLib.writeStdout(" ");
SysLib.writeStdout("Marks-1 :"+obj2.marks[1]);
SysLib.writeStdout("Marks-2 :"+obj2.marks[2]);
SysLib.writeStdout("Marks-3 :"+obj2.marks[3]);
SysLib.writeStdout("Marks-4 :"+obj2.marks[4]);
SysLib.writeStdout("Marks-5 :"+obj2.marks[5]);
SysLib.writeStdout("Marks-6 :"+obj2.marks[6]);
SysLib.writeStdout(" ");
SysLib.writeStdout("recOneObjArray.subName 1 :"+obj2.recOneObjArray[1].recOneSubName);
SysLib.writeStdout("recOneObjArray.subScore 1 :"+obj2.recOneObjArray[1].recOneSubScore);
SysLib.writeStdout("recOneObjArray.subName 2 :"+obj2.recOneObjArray[2].recOneSubName);
SysLib.writeStdout("recOneObjArray.subScore 2 :"+obj2.recOneObjArray[2].recOneSubScore);
SysLib.writeStdout("recOneObjArray.subName 3 :"+obj2.recOneObjArray[3].recOneSubName);
SysLib.writeStdout("recOneObjArray.subScore 3 :"+obj2.recOneObjArray[3].recOneSubScore);
SysLib.writeStdout("recOneObjArray.subName 4 :"+obj2.recOneObjArray[4].recOneSubName);
SysLib.writeStdout("recOneObjArray.subScore 4 :"+obj2.recOneObjArray[4].recOneSubScore);
SysLib.writeStdout("recOneObjArray.subName 5 :"+obj2.recOneObjArray[5].recOneSubName);
SysLib.writeStdout("recOneObjArray.subScore 5 :"+obj2.recOneObjArray[5].recOneSubScore);
SysLib.writeStdout(" ");
SysLib.writeStdout("recTwoObj.subName 1 :"+obj2.recTwoObj.recTwoSubName1);
SysLib.writeStdout("recTwoObj.subScore 1 :"+obj2.recTwoObj.recTwoSubScore1);
SysLib.writeStdout("recTwoObj.subName 2 :"+obj2.recTwoObj.recTwoSubName2);
SysLib.writeStdout("recTwoObj.subScore 2 :"+obj2.recTwoObj.recTwoSubScore2);
SysLib.writeStdout("recTwoObj.subName 3 :"+obj2.recTwoObj.recTwoSubName3);
SysLib.writeStdout("recTwoObj.subScore 3 :"+obj2.recTwoObj.recTwoSubScore3);
SysLib.writeStdout("recTwoObj.subName 4 :"+obj2.recTwoObj.recTwoSubName4);
SysLib.writeStdout("recTwoObj.subScore 4 :"+obj2.recTwoObj.recTwoSubScore4);
SysLib.writeStdout("recTwoObj.subName 5 :"+obj2.recTwoObj.recTwoSubName5);
SysLib.writeStdout("recTwoObj.subScore 5 :"+obj2.recTwoObj.recTwoSubScore5);
end
end


Output
--------------------
OBJECT-2
--------------------
Name :TESTNAME
Address :Flat no. 123, New City, Pin - 112233
Age :10
Standard:V
Marks-1 :81
Marks-2 :82
Marks-3 :83
Marks-4 :84
Marks-5 :85
Marks-6 :86
recOneObjArray.subName 1 :Sub 1
recOneObjArray.subScore 1 :10
recOneObjArray.subName 2 :Sub 2
recOneObjArray.subScore 2 :20
recOneObjArray.subName 3 :Sub 3
recOneObjArray.subScore 3 :30
recOneObjArray.subName 4 :Sub 4
recOneObjArray.subScore 4 :40
recOneObjArray.subName 5 :Sub 5
recOneObjArray.subScore 5 :50
recTwoObj.subName 1 :Sub 11
recTwoObj.subScore 1 :110
recTwoObj.subName 2 :Sub 12
recTwoObj.subScore 2 :120
recTwoObj.subName 3 :Sub 13
recTwoObj.subScore 3 :130
recTwoObj.subName 4 :Sub 14
recTwoObj.subScore 4 :140
recTwoObj.subName 5 :Sub 15
recTwoObj.subScore 5 :150